﻿Imports ValorYReferencia.Figuras
Imports System.Windows.Forms

Namespace Facturacion
    Module PruebaFiguras
        Sub Main()
            Dim areaTotalDeLasFiguras As Double = 0
            Dim arrayDeFiguras() As Figura = {New Circulo(5), New Rectangulo(2, 4), New Rectangulo(3, 4)}

            For Each figura In arrayDeFiguras
                'Polimorfismo: se llama al método CalcularArea a distintas clases de objetos y todas saben responder
                areaTotalDeLasFiguras += figura.CalcularArea()
            Next
            Console.WriteLine("Área total de las figuras: {0}", areaTotalDeLasFiguras)
            Console.ReadKey()
        End Sub
    End Module
End Namespace